;input variables required; [l] [s] [k] [hs]
;outputs; [drive]
;
;create the hexagon
_Polygon _NumSides=6 _Mode=_Circumscribed 0,0,-[k] [s]/2,0,-[k]
_SelLast
{ExtrudeCrv:[tol]:0,0,{Math:[k]*2}}
{Set:[drive]={SelectedObjs}}
_SelNone
;
;bottom of the hexagon
{Set:[tip]={Math:(2*(([s]/2)*tan(30d)))*tan(30d)}} ; hexagon radius / tip deep
_Polyline _PersistentClose=_No 0,0,[k]-[hs]-[tip] _Mode=_Line 0,(tan(60d)*([hs]+[tip])),[k] 0,0,[k] _Enter
_SelLast
{Revolve:0,0,0:0,0,[l]}
{Set:[obj]={SelectedObjs}}
_SelNone
;
{BooleanIntersection:[tol]:[drive]:[obj]}
{Set:[drive]={SelectedObjs}}
_SelNone



